PCGUIA 2010 Software/Programs/PCGuia_programas.iso/Software/Utils/Universal Viewer/UniversalViewer.exe/Plugins/Syn2/HL/VARfile.lcf

Text File | 2007-12-12 | 7.8 KB | 341 lines

object SyntAnal34: TLibSyntAnalyzer
  Formats = <
    item
      DisplayName = 'Default'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      FormatType = ftCustomFont
    end
    item
      DisplayName = 'Marked block'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clHighlightText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
      BgColor = clHighlight
      FormatType = ftColor
    end
    item
      DisplayName = 'Symbol'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Number'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'String'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Identifier'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = []
    end
    item
      DisplayName = 'Reserved word'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Comment'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
    end
    item
      DisplayName = 'Params'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold, fsItalic]
    end>
  TokenRules = <
    item
      DisplayName = 'Comment'
      StyleName = 'Comment'
      TokenType = 1
      Expression = '--.*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Any name'
      StyleName = 'Identifier'
      TokenType = 2
      Expression = '[a-z_]\w*'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'String'
      StyleName = 'String'
      TokenType = 4
      Expression = '"(\\"|.)*?("|$)'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Float'
      StyleName = 'Number'
      TokenType = 6
      Expression =
        '#with exp. dot is optional '#13#10'\d+ \.? \d+ e [\+\-]? \d+ |'#13#10'#witho' +
        'ut exp. dot is required'#13#10'\d+ \. \d+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Integer'
      StyleName = 'Number'
      TokenType = 5
      Expression = '\d+'
      ColumnFrom = 0
      ColumnTo = 0
    end
    item
      DisplayName = 'Symbol'
      StyleName = 'Symbol'
      TokenType = 3
      Expression = '[/\+\-\*:=<>\(\)&/\|\^~\.,]+'
      ColumnFrom = 0
      ColumnTo = 0
    end>
  BlockRules = <
    item
      DisplayName = 'Key words'
      StyleName = 'Reserved word'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'categories'
            'datum'
            'end'
            'is'
            'level'
            'RECORD_TYPE'
            'survey'
            'title'
            'weight')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Var types'
      StyleName = 'Reserved word'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'character'
            'integer'
            'LOGICAL'
            'multiple'
            'real'
            'single')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Param keywords'
      StyleName = 'Params'
      BlockType = btTagDetect
      ConditionList = <
        item
          TagList.Strings = (
            'classes'
            'COMPUTE'
            'datum'
            'location'
            'range'
            'title'
            'UNIVERSE'
            'VARIABLE')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Named begin'
      ConditionList = <
        item
          TagList.Strings = (
            'is')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TokenTypes = 4
        end
        item
          TagList.Strings = (
            'categories'
            'character'
            'integer'
            'level'
            'logical'
            'real'
            'single'
            'survey')
          TokenTypes = 4
          IgnoreCase = True
        end>
      IdentIndex = 2
      BlockOffset = 2
      BlockEnd = 'Named end'
      NameFmt = '%s2 %s1'
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Named end'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TagList.Strings = (
            'categories'
            'character'
            'integer'
            'level'
            'logical'
            'real'
            'RECORD_TYPE'
            'single'
            'survey'
            'weight')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'end')
          TokenTypes = 4
          IgnoreCase = True
        end>
      SameIdent = True
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Unnamed begin'
      ConditionList = <
        item
          TagList.Strings = (
            'is')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'categories'
            'record_type'
            'weight')
          TokenTypes = 4
          IgnoreCase = True
        end>
      IdentIndex = 1
      BlockOffset = 1
      BlockEnd = 'Named end'
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Category'
      ConditionList = <
        item
          TokenTypes = 16
        end
        item
          TagList.Strings = (
            'is')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'datum')
          TokenTypes = 4
          IgnoreCase = True
        end>
      IdentIndex = 2
      BlockOffset = 2
      BlockEnd = 'Category end'
      NameFmt = '%s0'
      HighlightPos = cpAny
      IgnoreAsParent = False
    end
    item
      DisplayName = 'Category end'
      BlockType = btRangeEnd
      ConditionList = <
        item
          TokenTypes = 16
        end
        item
          TagList.Strings = (
            'is')
          TokenTypes = 4
          IgnoreCase = True
        end
        item
          TagList.Strings = (
            'datum')
          TokenTypes = 4
          IgnoreCase = True
        end>
      HighlightPos = cpAny
      IgnoreAsParent = False
    end>
  CodeTemplates = <>
  SubAnalyzers = <>
  TokenTypeNames.Strings = (
    'Unknown'
    'Comment'
    'Identifier'
    'Symbol'
    'String'
    'Integer const'
    'Float const'
    'Hex const'
    'Char const'
    'Preprocessor')
  MarkedBlockStyle = 'Marked block'
  DefaultStyleName = 'Default'
  Extentions = 'var'
  LexerName = 'VAR file'
end